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Come leggere RUN: 

Collegate al vostro ZX Spectrum il vostro abituale registratore, date alimentazione ed inserite la cassetta nel registratore. 
Scrivete LOAD “ " e premete ENTER. Per scrivere LOAD dovete premere il tasto "J”; per scrivere “ " dovete tenere 
premuto SYMBOL SHIFT e premere due volte "P”. Automaticamente la rivista si carica fino alla conclusione del primo 
"blocco" di articoli; quando appare la scritta “FERMA IL REGISTRATORE” dovete o premere PAUSE o arrestare con 
STOP il registratore. Per voltare pagina basta premere “c". Al termine della lettura di un blocco vi verrà richiesto di far 
ripartire il registratore per caricare il blocco successivo e cosi via fino al termine della rivista. 

Non ci sono programmi bloccati o non salvabili all’Interno di RUN, se volete duplicare (esclusivamente per uso 
personale come stabilito dalle leggi internazionali del Copyright Act) un articolo o un programma non dovete far altro 
che dare BREAK quando vi viene chiesto di far partire il registratore e salvare il programma. Per programmi che 
comprendono più blocchi utilizzate il salvataggio a blocchi separati (salvate cioè i vari blocchi via via che vengono 
caricati). 


«A 


SOMMARIO 

Start RUNN.5 
TAMBURINO . 
SOMMARIO .. 
EDITORIALE . 


RUNNER . [ 

NEWS 


I EXPRESSO LOAD 1 . 

TEST GP-50. 

TUTTO LOAD. 


1 OCTOPUSS . .. 1 . 




CORSO DI BASIC 5 a parte 


:-80SUPERGAME 


ili 


F> TRUCCHI DEL MESTIERE. 

*. COMPUTER PSYCHOLIGHTS A . 

CORSÓI/M ^Pafti - ... 

RUN GAME. J>. P. C*.5. 

TEST JOYSTICK PROGRAMMABILE. 

MSX HARDWARE. 

posta. .. 

MERCATO... 

NEXT.!. 


TUONO BLU . 

■RACCOLTA SCREEN LETTORI 



NOME BLOCCO 

START 

TAMBURINO 

SOMMARIO 

EDITORIALE 

RUNNER 

NEWS 

EXPRESSO 

GP-50 

TUTTO LOAD 
OCTOPUSS 
BASIC 5 

Zd3Q_- 

TRUCCHI 
PSYCHO 
L/M 5 
RUN GAME 
JOYSTICK 
MSX HARD 
POSTA 

NEXT 

TUONO BLU 
SCREEN 


ZX Spectrum è un marchio della Sinclair Research Ltd. 








































«PERCHÈ IN REALTA' LA VERA AQUARIUS... SONO IO /» 


A quanto pare rAquarius Edizioni ha dei problemi di identità, infatti negli ultimi due mesi 
sono usciti ben tre articoli ognuno dei quali dichiarava una paternità diversa della nostra 
povera testata. Il primo [e l’unico]articolo veritiero è apparso su Zero Uno della Mondadori e 
fa parte di un servizio sui Software Publishers. Il secondo è apparso su Prima Comunicazione 
ed attribuisce RUN alla stessa editrice di Load’n’Run, l’MK Periodici. Il terzo è apparso su 
Panorama e dichiara che RUN è una EX iniziativa di Massimo Soncini [quindi noi non 
c’entreremmo in alcun modo...]. 

Questa situazione ci ricorda molto la trasmissione «Drive In » in cui Gianfranco D’Angelo 
aveva a che fare con dei loschi figuri che rivendicavano un’identità sospetta, ma alla fine «in 
realtà » il vero... era Gianfranco D’Angelo. 

A questo punto, stufi di sprecare carta per mandare diffide e rettifiche preferiamo chiarire una 
volta per tutte che l’Aquarius Edizioni è composta solo ed unicamente da Simone Majocchi e 
Pietro Rocchi, non esistono legami [se non d’amicizia] con altre persone. Quindi in realtà la 
vera Aquarius SIAMO NOI!!! 

Torniamo a noi con un po’ di novità: in collaborazione con CGD Messaggerie Musicali 
abbiamo realizzato il Computer Vision Disc. Si tratta di un normalissimo disco Mix con due 
brani musicali incisi [uno per lato], in fondo al lato B c’è però una piccola sorpresa: un 
programma per ZX Spectrum da caricare ed attivare alla prima battuta del brano [lato A] 
ROME BY NIGHT. Dalla Prima battuta lo Spectrum produrrà sul televisore il video 
perfettamente a tempo del brano. In pratica assieme alla musica potete usufruire del Video 
computerizzato senza usare un videoregistratore o simili, basta il vostro computer. 

Presto produrremo altri video per altrettanti dischi. Se volete vedere di cosa si tratta andate 
dal vostro negoziante di dischi e chiedete il MIX dei Dhuo «Rome by Night », distribuito dalla 
CGD. 


? 


Se lo Spectrum per te non ha segreti, se il Basic e l’Assembler sono come una 
seconda lingua, allora abbiamo bisogno di te! Se il «vile denaro» ti interessa 
possiamo dare sfogo al tuo interesse. Scrivici indicando le tue possibilità, se hai 
già qualcosa di pronto mandaci una copia, siamo interessati sia a programmi che 

articoli. 

CERCHIAMO COLLABORATORI IN TUTTA ITALIA 
Mandaci il materiale con indirizzo e recapito telefonico a 
AQUARIUS EDIZIONI, VIA LEOPARDI 9, 20123 MILANO 
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basic basic mie basic basic mie mie me basic mi ensic 

CORSO DI BASIC 

5a pene 


a curi di 

Antonio M. e Candido 
canee e lira 

Continuiamo la nostra "avven¬ 
tura" esaminando, fra l'altro, 
alcune funzioni che vi permette¬ 
ranno di programmare situazioni 
aleatorie ed ottenere tabulati. 

Ricordiamo ai "video lettori" 
che i disegni ottenibili con il 
programma di grafica proposto 
nei numero precedente, possono 
essere salvati con SRUE SCREENf 
"nome", oppure caricati con LORD 
SCREENS "nome". 

BASIC BASIC BASIC BASIC BASIC 1 BASIC BASIC BA5IC BASIC IBSK 


mie mie BASIC BASIC BASIC lise BASIC BASIC BASIC BASIC BASIC 
finalizziamo questo programma: 
IO FOR y=0 TO 31 
20 PRINT AT 15,Vi"-" 

30 NEXT y 

40 PRINT " HO FINITO! ": STOP 
Il loop 10/30 viene letto 32 
volte (dal valore o fino a 31), 
come specificato nella linea 10 - 
La variabile "y", detta "in¬ 
dice" di loop,viene incrementata 
ad ogni lettura della linea io. 

NEXT controlla che "y" abbia 
raggiunto il valore 31; indi non 
rimanderà' piu' al FOR, ma per¬ 
metterà' di leggere l'istruzio¬ 
ne a lui seguente (linea 40). 

Notare che "TO" e'sempre pre¬ 
sente fra i due numeri limite. 

N.B.M "y" e'usata anche come 
variabile orizzontale dei PRINT. 
BASIC BASIC BASIC BASIC BASIC 5 BASIC BA5C BASIC BASIC BASK 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASK 


BASIC BASIC BASIC BA5IC BASIC BASK BASIC BASIC BASIC BASIC BASIC 


PRINT AT 

Determinando la posizione di 
stampa, e' utile per creare gra¬ 
fici e tabulati. Deve sempre es¬ 
sere seguita da due numeri, che 
rappresentano le coordinate. 

Infatti il primo, da 0 ( per 
la prima linea in alto) a 2l(per 
l'ultima in basso),specifica la 
posizione verticale, il secondo, 
da o (per la prima colonna a si¬ 
nistra) a 31 (per l'ultima a de¬ 
stra) , determina la posizione o- 
r izzonta le. 

io INPUT "linea*?",x: IF x>21 
THEN GO TQ 10 

20 input "co lonna*?",y:IF y>3l 
THEN GO TO 20 

30 PRINT AT X ,y;: GO TO 10 
6A5IC BASIC BASIC BASIC mi[ 2 BASIC BASIC BASIC BASIC BASIC 


STEP 

STEP serve a determinare di 
quanto i "iridice" debba essere 
incrementato (o decrementatoi). 

*- Se per esempio volessimo una 
linea tratteggiata, dovremmo in¬ 
crementare ad ogni ciclo di due 
unita' l'indice,che controllerà' 
poi la variabile orizzontale. 
Sostituiamo la prima linea: 

10 FOR y *0 TO 31 STEP 2 
E'possibiie anche dee rementa- 
re l'indice "y" ad ogni ciclo. 

Usando infatti un numero ne¬ 
gativo, verrà' stampata una li¬ 
nea da destra a sinistra. 

10 FOR y =31 TO 0 STEP -1 
Con"FOR NEXT STEP" Si ha dun¬ 
que una variabile duttilissima. 
BASIC BASIC BASIC BASIC BASIC S BASIC BASIC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BASK BASIC BASIC BASIC BASIC BASK 
FOR NEXT 

Questa funzione agevola mol¬ 
to la programmazione. Per evi¬ 
denziarne l'efficacia, iniziamo 
considerando un listato che in 
seguito verrà' sviluppato con 
l'ausilio di queste istruzioni. 

Immaginiamo di aver bisogno 
di disegnare una linea orizzon¬ 
tale a meta' dello schermo; per 
evitare l'uso di molti "PRINT", 
formiamo un "loop", o ciclo ri¬ 
petitivo (in questo caso, da 20 
a 40) : 

10 LET X = 15 :LET y»0 
20 PRINT AT X,y;"-" 

30 LET y=y + l 

40 IF y <32 THEN GO TO 20 
50 PRINT " HO FINITO! "; STOP 
BASIC BASIC BASIC BASIC BASIC 3 BASIC BASIC BASIC BASIC BASK 


BASIC BASIC BASIC BASIC BASIC BASK BASIC BASIC BASIC BASIC BASK 

E' da notare che; 

1) la linea 30,ad ogni loop, 
incrementa il valore orizzontale 
"y" di una unita'; 

2) la linea 40 controlla che 
tale variabile non assuma il va¬ 
lore 32, cosa che la porterebbe 
fuori dallo schermo. 

Ora , avvi lendoci della funzio¬ 
ne FOR NEXT, possiamo eliminare 
la linea 30. 

for infatti contiene il con¬ 
tatore delle volte che il ciclo 
deve essere ripetuto, incremen¬ 
tando il valore della variabile 
specificatamente a lui dedicata. 

NEXT invece controlla che il 
ciclo sia compiuto per il numero 
di volte indicato (32), riman¬ 
dando al FOR in caso contrario. 
BASIC BASIC BASIC BASIC BflSIC 4 BASIC BASIC BASIC BASIC BASK 


BASIC BASIC BASIC BASIC BASIC BASK BASIC BASC BASK BASK BASK 
RND 

Questa funzione, solitamente 
non disponibile nei grossi com¬ 
puter, ci permette di ottenere 
dei numeri casua li. 

Essi sono molto utili quando 
occorre che una o piu' variabi¬ 
li assumano un carattere aleato¬ 
rio in determinate situazioni 
matematiche, o comunque necessi¬ 
tino di una ragion d'essere non 
prevedibile, per simulare proba¬ 
bilità', muovere figure, etc. 

utile quindi nei giochi. 

Con il seguente listato ot¬ 
terrete una serie di numeri ca¬ 
sua li : 

10 PRINT RND 
20 GOTO 10 

BASIC BASIC BASK BASIC BASK 7 BASIC BASK BASK BASK BASK 


BASK BjISIC BASK BASK BASIC BASK BASK BASK BASK BASK BASK 
Se fosse necessario ottenere 
numeri interi, bastera'mette re 
fra parentesi il "RND" t farlo 
precedere dalla funzione matema¬ 
tica "INT" (rendi intero...). 

10 PRINT INT (RND) 

E' anche possibile disporre 
di numeri contenuti entro de¬ 
terminati limiti: 

10 PRINT INT (5 + 10*RND) 

Avremo cosi' numeri,in questo 
caso interi, compresi fra il li¬ 
mite inferiore (5) ed il limite 
superiore, consistente nella 
somma del primo numero Piu' il 
secondo (15). 

E' da notare che i due valori 
rappresentanti i limititene pos¬ 
sono anche essere decimali), non 
verranno mai considerati. 

BASIC BASIC BASK BASK BASK 8 BASK BASK BASIC BASK BASK 
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mi BA5IC BASIC BA5IC BASIC BA5IC BA5IC BASIC BA5IC BASIC BASIC 
RRNDQMIZE 

In effetti .pero', ad ogni co¬ 
lando di elaborazione (RUN), i 
numeri vengono presentati sempre 
nella medesima sequenza. 

Ciò' avviene perche , pur a- 
vendo il computer in memoria una 
serie di 55.536 numeri cosi'ben 
assortiti da sembrare casuali, 
essi vengono letti sempre dallo 
stesso punto di partenza. 

5e vogliamo simulare una mag¬ 
giore casualità', dunque,dobbia - 
mo far precedere il "RND" dalla 
istruzione 'RANDOMIZE", che, ba¬ 
sandosi sul tempo trascorso dal 
momento dell'accensione del com¬ 
puter, rendera'casuaie la scel¬ 
ta del primo numero della serie. 

10 RRNDOMIZE:PRINT RND: GOTO 10 
BASIC MSIC MSIC MSIC MSIC 9 MSIC MSIC MSIC MSIC MSIC 


MSIC MSIC BASIC MSIC MSIC BASE MSIC MSIC MSIC MSIC BASIC 

** F U N N Y ** 

Limitandoci ai comandi ed al¬ 
le istruzioni fino ad ora consi¬ 
derati, abbiamo programmato un 
"micro" video game, implementato 
nei blocco successivo, il cui 
listato ha una tendenza spicca¬ 
ta mente didattica. 

Affinché' possiate disporre 
di spazio per studiare singolar¬ 
mente le varie routine o per e- 
ventuali modifiche da apportare, 
utilizzando i 132 butes rimasti 
disponibili, sono state lasciate 
libere sia le linee fino alla 
4-99 che quelle dalla 5500 alla 
5999. Si noti che il blocco pre¬ 
senta ulteriori sviluppi rispet¬ 
to alla versione tipografica. 

BA5IC BASIC BASE BASIC BASE 10 BASIC BASE BASIC BASE BASE 


1000 > 
1010 
1020 
1030 
1035 
104-0 
1050 
1053 
1055 
1060 
1070 

$0&0 

1065 

Cand 

ra" 

1110 

« 

1120 

tate 

t 

* *** 

» 

* 


REM 
REM 
REM 
REM 
REM 
REM 
REM t 
LET n 
LET r 
REM t 
CLS ; 

PRINT 
PRINT 
i do 

PRINT 


INPUT 

t 

e 

« 

e 

»»* 


« 

u 


N 


t 

N 

* 


presentazione 
lniz. varibiii RECORD» 
!■" ": REM nom.record 
ecord «0 

inizio future eiab. » 
BORDER 5; PRPER 5: IN 


8 f 


5,16;"a cura di” 

6,il;"Antonio M. e 
« cancella 


at i,i; M * run * 
t UIDEO ORME 
* »" 

RT 3,20;" 

*»•«*« 
«*«««« 
t* t «* t t * 

* «« * »« * « 
t « ft • « 

ft 


giochi ? 

* TMEN DEEP 


(S/n) ", 
.05,36: 


i % 

1130 IP ito"! 1 
: GO TO 1160 
1135 IP it»"n" TMEN BEEP ,05,36: 

INPUT RT 21,2; "UUOI UEDERE IL L 
ISTATO? (S/n)",jl: GO TO 114-0 
1137 GO TO 1120 

114-0 IP j I ■ " s " THEN CLS : BEEP . 

05,36: LIST 1000 

1145 IP Jt«"n" TMEN BEEP .05,36: 

: GO TO 9000 
1150 GO TO 1060 

1160 POR U *0 TO 12: PRINT RT 11, 
U;"BUON DIVERTIMENTO!": PRUSE 5 
: PRINT RT 11,u;" 

": NEXT U 

1170 INPUT " 1 S 

inistra 2 d 

estra 0 r 

uoco 

LIVELLO DI GIOCO? 
(0/1/2)",Ot 

1175 IP 01■"0" OR 0 t■"1" OR 0|»" 
2" THEN LET 0oVRL Ot: CLS : GO T 

0 1500 

1160 GO TO 1170 
REM 
REM 


1500 

1505 

1510 

1520 

1530 

1540 

1550 

UPO 

1560 


LET 

LET 

LET 

LET 

LET 


INIZIRLIZZRZIONE GIOCO 
«inizia lizz. variabili» 

ZSo"alÌlL" 

ri»"»": rem raggio UPO 
ato"JL": REM TERRA 
ilo"r: rem laser terra 
els'J \ Im” : REM espios. 


1570 LET teapomax»300 

1580 LET centrio0: REM bersagli 

1590 LET punteggio»© 

1600 LET tempo»© 

I610 let mezzo tempo»0 
1620 let contatore»© 

1640 REM » stampa grafica « 
1680 POR f«0 TO 31 
1690 PRINT INK 7;AT 0,fRT 2 
1 , f;"-";RT 2,f;"■" 

1700 NEXT f 

1710 POR e *0 TO 21 

1720 PRINT INK 7;RT e,0;"l";RT C 

,31; " I" 

1730 NEXT e 

1760 PRINT ;RT 1,1;" SCORE ";pun 
teggio;" 

1770 PRINT RT 1,21;" TIME "itemp 

1>60 PRINT RT 1,11;" RECORD "; I 
NK 2;record 

1790 rem «coordinate postazione 
terrestre * 

1600 LET a «20 : LET b»16 

1620 REM « coord, casuali UPO « 

1840 LET yolNT (7+10»RND) 

1850 LET XoINT (11+5»RND) 

1870 REM ■ . 

1880 PRINT RT a,b;it: PRUSE 50: 
PRINT RT y,x;zl 

2000 REM LOOP PRINCIPRLE 
2010 rem » cronometro » 

2020 PRINT AT 1,27;tempo 

2030 let tempo»tempotl 

2040 IP tempo>tempomax TMEN GO T 

0 6000 

2060 REM * contatore UPO * 
2030 LET contatore»contatore+l 
2090 IP contatore»o + 1 TMEN LET c 
ontatore»©: PRINT RT y.x;" 

: GO SUB 5000+ (500» (0 »2) ) : 

AT y,x;z! 

2110 REM « movim. e fuoco 
2140 IP INKEYS»*' 1" THEN GO 
010 
2150 
040 
2160 
000 
2170 
2160 
3000 
3010 
-1 


PRINT 

n « 

SUB 3 

IP INKEYt«"2" TMEN GO SUB 3 
IP INKEY$*"0" TMEN GO SUB 4 


REM 
GO TO 
REM 
PRINT 
IP b < 1 


2000 

MOVIMENTO 
AT a , b; " ": 

TMEN LET b«l 
AT a,b;a t: RETURN 


'A* 


b»b 


LET fi»" l/l 


REM 


3020 PRINT 
3030 REM ■ • • 

3040 PRINT AT a,b;" 

+ 1: IP b >28 TMEN LET 
3050 PRINT AT a,b;at 
REM 

PRINT RT 
POR m«19 
PRINT RT 
PRUSE 1: 

IF b»X +1 


4000 

4040 

4050 

4050 

4070 

4080 

7500 


"; LET b»b 
b»28 

_ RETURN 

LASER * I" 
y ,x;zi 

TO 4 5TEP -1 
m, b + 1; Il 

PRINT RT m,b+1;" " 
RND m«y TMEN GO TO 
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4093 rem «prtciftiont cronometro# 

4100 LET mezzo tempo «mezzo tempo + 1 

4110 IF mezzo tempo«2 THEN LET te 

mpo»tempo+l: PRINT RT 1,27;tempo 

: LET mezzottmpo«*0 

4180 REM a a e 

4130 BEEP 0.01,m+24 

4140 NEXT rn 

4150 RETURN 

6000 REM MOUIM. UFO « *#* 

5050 LET C4S0-INT (13tRND) 

5080 REM fSPOStamenti UFO i_ 

5100 IF caso<3 TMEN LET x»xtl 
0 TO 5300 

5110 IF C*SO <5 THEN LET X«X-1 
0 TO 5300 

5120 IF caso<7 TMEN LET y»y-l 
0 TO 5300 

5130 IF caso <9 THEN LET yry+1 
0 TO 5300 „ „ 

5160 REM * p robab# raggio"#" # 
5180 IF caso <10 TMEN GO SUB 6000 
: RETURN 
5210 RETURN 

5300 REM CONTROLLO COORO. UFO 
5310 IF X >26 TMEN LET X«26 
5320 IF X<1 TMEN LET X«1 
5330 IF y <4 TMEN LET y«4 
5340 IF y >15 TMEN LET y«15 
5350 RETURN ^ « 

5500 REM I 0 E R ! Il 

5540 REM t* spazio disponibile 
5560 CLS : PRU5E 30; PRINT RT 3, 
Ili FLRSM li "ESERCIZIO" 

5570 PRINT RT 9,0;" PROGRRMMR 

UNR ROUTINE RLLR LINER 5500 

PER IL LIUELLO DI 

GIOCO -2-" 

5580 LET h «40 : LET V«40: GO SUB 
6600 

5585 CLS ; LIST 5500; LET j$-"S" 

: GO TO 1140 

5590 REM # # # 

6000 REM RRGGIO UFO *#' ^ 

6020 RRNDOMIZE ; LET random«INT 
(3+4#RND) 

6030 REM a a a 
6040 PRINT RT y,x;zi 
6050 FOR l«l TO 20 nftntr 

6060 PRINT RT yU,X+2ifl; PRUSE 
1 

6070 PRINT RT y + LX+8i" 

6080 REM a a a 

6090 LET ten£o«tempo*l 

6100 PRINT RT 1,27; tempo 

1120 IF M y + l»ltf RND X + l«b TMEN GO 
TO 7000 

6130 IF y #l>19 TMEN PRUSE 20: PR 
INT RT a,bia S ; RETURN 
6140 BEEP 0.02,1-12 

6150 NEXT l 

7040 BEEP .13,0: pSTRt RT a,b;" I 
■I"; BEEP .08,-7; BEEP .04,-10: 
PRINT RT a,bi'W: BEEP .01,-20 

: BEEP .05,-30: PRINT RT a,bi" 

.. 

7060 LET Punteggio«Punteggio-l; 
PRINT RT 1,8; punteggio; " " 

7070 PRUSE 60: BEEP .001,30: BEE 
P .001,50: PRINT RT y,xi" 

PAUSE 60 
7080 GO TO 1790 
7500 REM * ^ * 

7510 PRINT RT y,Xi" 

7580 FOR q»l TO 10 
7530 BEEP .01,36; PRINT RT y,x;e 
% 

7540 BEEP .01,37: PRINT RT y,Xif 


7* 


50 NEXT q 
7555 REM a a a 
7560 LET punteggio-punteggio+i; 
LET cent ri■centri+1: PRINT RT 1, 
8;punteggio;" ";RT y,x;" 

BEEP 0.005,50: PRUSE 10 


7570 IF centri=7 TMEN GO SUB 760 
0 

7580 GO TO 1820 
7590 REM 

7600 REM BONUS 

7620 LET temPomax»tempomax+200 
7630 PRINT RT 9,7;" 8 0 N U 

S '*; RT 10,7; M 200 UNITR'TEM 

PO •• 

7640 PRINT i PRPER 7i INK 2;RT 1 

1,7i" TEMPO MRX "itempomax;" 

• • 

7650 PRINT i FLRSM li PRPER 7;RT 
9,6; " V 1 i RT 9 ,26; "V;RT. 10,6; f, v* 
; RT 10,26; "V;R~ 

:ViRT 8,6; " 

; RT 12,6; M 




7660 LET h «40 : LET V»40: GO SUB 
8600 

7680 PRINT RT 8,6; M 

RT 9,6; 

" ; RT 10 , 6 ;" 

"; RT n,6;" 

"; RT 12,6; •• 


7690 LET centri«0: 
8000 REM F I 
8020 PRINT RT 4,bi 


RETURN 
N R L E 

M ; RT y 


x; 


8030 IF punteggio<4 then print r 
T 10,9;" S C R R S 0 " 

8040 IF punteggio>4 TMEN PRINT R 
T 10,6;”C 0 P L I M E N T I" 

8045 PRINT RT 1,19," RECORD 
"; PRPER 5; Ìnk 2;RT 1,28;record 
5050 PRINT RT 1,1; " S C 0 R E 

8055 f ?SÌNT FLRSM 1;RT l,12i n 

è060 l PR?NT'i INK 2; PRPER 6;RT 5 
, 10 ;ni 

8065 REM a a a 

8070 GO SUB 8700 

8080 IF punteggio>record TMEN oo 
SU8 8500 

6090 CLS : PRINT ; FLRSH 1;RT 10 
,9;"## ORME OUER »*": PRUSE 0: 8 
EEP .00,24 

8100 GO TO 1060 _ _ 

8500 REM RECORD 

6510 PRUSE 30; LET re cord«punteg 
gio: PRINT RT 5,10; M "; 

FLRSH l;RT l,li" R E C 

ORDÌ r, i FLRSM 0; RT 10, 

5; M FRNTRST ICO 
8520 LET h «40 : LET V»30: GO SUB 
8600 

8550 BEEP .05,36; INPUT M N0ME7", 
ni; PRINT INK 2; PRPER 6;RT 5,10 
;ni;" ";punteggio;"ii " : pruse 3 

0 

8560 GO SUB 8700 
8570 RETURN 
8600 REM MUSICR 

8610 FOR w-1 TO 50: 

ND#v: NEXT u 
8630 RETURN 
8700 REM MUSICR 
8710 FOR k»l TO 24; 


RRNDOM 

BEEP RND/h,R 


IN IZIRLE 
BEEP • 01,k +2 


BEEP .03,k+2: PRUSE 0.5; NEXT 
k 

8720 BEEP .12,k#6: BEEP 1,-35: L 
ET k«k-6: BEEP . l,k: BEEP .13,k- 
12; BEEP .15,k-24 : BEEP .13,k-19 
: BEEP . 0,k-13 : PRUSE 24: BEEP . 
16,k-43 : RETURN 
8900 REM FINE 

9000 CLS : PRINT RT 10,0;" 

FRI 

PRRTIRE IL REGISTRRTORE 

M : LOR 

D "" 
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ESEMPI PRRTICI 

Finalmente «eco arrivato il 
momento di mettere in pratica l« 
nozioni apprese fin qui: vi ver¬ 
ranno infatti prasentiti alcuni 
semplici esempi applicativi sul¬ 
le istruzioni introdote nelle 
puntate precedenti. I programmi 
che fra poco incontreremo saran¬ 
no scritti nella consueta forma 
ove* accanto alle istruzioni ci 
saranno i codici in esadecimaie 
che le implementano. In questo 
modo, utilizzando 'HXLD', prese 
ntato sul numero 1 di RUN,potre¬ 
te caricar li in memoria . 


- EZ0 - 

Ora vi mostro un Piccolo tra¬ 
bocchetto nel quale «' facile 
cadere. Confrontate questi due 
programmi : 


RDD 0,0 
SUD R « & 
SBC HL,DE 


RDD 

DEC 

DEC 

SBC 


R, 0 

R 

R 

ML, DE 


Rpparentemente essi sono uguali 
e il loro scopo e' quello di 
sottrarre 2 da R e quindi sot¬ 
trarre DE da ml. Il primo pro¬ 
gramma pero' non e' corretto; 
provate un po' a capire perche', 
prima di continuare a leggere. 


. 51 . 


,55. 




Per rendervi ia Vita piu' fa¬ 
cile, assieme ai testo che state 
leggendo, e' stato caricato 
automaticamente anche il codice 
macchina dei vari esempi, con il 
seguente ordine; 

PROGRRMMR 1 INDIRIZZO 32000 
PROGRRMMR 2 INDIRIZZO 32100 

Quindi se ad esempio volete ve¬ 
dere i risultati del secondo 
programma date PRINT usq 32100 
comunque per adesso continuate a 
leggere ... 

Il primo programma che vi 
presentiamo consente di fare 
la somma di 2 numeri minori 
di 255 , presa in modulo 255 


m 


L' unica istruzione disponibile 
per sottrarre DE da ML e' 

SBC ml,DE , ma questa sottrae 
pure il CRRRY che quindi deve 
essere messo a 0 prima di tale 
operazione: questo «'ciò' a cui 
serve RDD R,0. Nel primo esempio 
pero', con l'istruzione SUB si 
corre il rischio di alterarlo se 
per caso il precedente valore di 
R era 100 , cosicché' il risul¬ 
tato di SBC HL,DE sarebbe stato 
hl-DE- 1 e non HL-DE. Ri contra¬ 
rio, nel secondo esempi 0 , 1 ' istru 
zione DEC non altera minimamente 
i 1 CRRRY 

Passiamo ora a un altro program¬ 
ma di esempio --> 
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un - 

i ca che se il 


il che significa Che se il ri¬ 
sultato della somma dovesse es¬ 
sere maggiore di 256,ai risulta¬ 
to verrà' sottratto 256. 

Rd esempio 200+100*44 cioè' 
300-255; mentre 100+100 fare' 

200 senza problemi. 

Per eseguire il programma dove¬ 
te dare: 

POKE (i + l),primoaddendo 
POKE (1+3),secondoaddendo 
quindi PRINT USR I dove 'I' sta 
per l'indirizzo al quale avete 
caricato il programma.Nei nostro 
caso I vale 32000, come spiegato 
all'inizio. 


differenzr di due NUMERI,INCRE- 
MENTRTR DI 1 IN RRITMETICR MODU¬ 
LO 65536 


RDD R,0 
LD BC primo 
LD HL,se condo 
SBC ML,BC 
INC HL 
LD B , H 
LD C,L 
RET 


C600 

010000 

210000 

ED42 

23 

44. 

4D 

09 


Il programma «' stato caricato 
automa ti cernente dall'indirizzo 
32100 e anche l'attivazione del 
programma e' automatica. Le ri¬ 
ghe BRSIC che si occupano di 
questo sono 
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Ecco dunque il listato; 
_53_ 


- - 

9000>LET i«32100 

9010 input “secondo ? “;s«condo, 

"primo ? "; primo 

9020 POKE i+4,INT (primo/256) 

9030 POKE i+3,primo-256tINT (pri 

mo/256) 

9040 POKE i+7,INT (S«COndO/256) 
9050 POKE i +6,S«C0nd0-256tlNT (S 
« condo/256) 

9050 PRINT secondo;“-“;primo;“+l 

a";USR i 

9070 GO TO 9010 


9000>LET i«32100 

9010 input “secondo ? “;s«condo, 

"primo ? “;primo 

9020 POKE i+4,INT (prilftO/256) 

9030 POKE i+3,primo-256tINT (pri 

mo/266) 

9040 POKE i+7,INT (S« COndO/256) 
9050 POKE i+6,S«C0nd0-256*INT (s 
« condo/256) 

9060 PRINT secondo;primo;“+l 

s";USR i 

9070 GO TO 9010 


per terminare l'esecuzione di 
questa routine inserite STOP 
quando vi viene chiesto 'secon¬ 
do' e per riprendere date RETURN 
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E' importintt cht capiate coma 
fa i i programma BASIC a acrivtrc 
i valori di 'primo' a 'secondo' 
dova viana richiesto dalla is¬ 
truzioni LD BC e LD HL 
Osservata anche che* coma sempre 
i due numeri vengono scritti con 
la cifre inve r t i te . 

Uo landò potete modificare il 
programma in linguaggio macchina 
sostituendo all' istruzione SBC 
l'istruzione RDD NL*BC*Ptr avere 
la somma. Per far questo cambia¬ 
ta ad con 09 tramite POKE i+B*9. 
Bisogna paro' anche cancellare 
il secondo bute dell'istruzione 
SBC* cioè 42h. Per far questo 
ecco che ci viene in aiuto quel- 

_60_ 



la che avevamo ritenuto un' is¬ 
truzione inutiie;NQP. se non lo 
canee l lassino * i i 4.2h verrebbe 
riconosciuto come il codice di 
LD B*D. Date dunque POKE 1+9,0. 
Par far ripartire il programma 
in l/m data GOTO 9000. Quando 
siete stufi digitate STOP e per 
continuare nella lettura di RUN 
data LORD •••• 
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ESPANSIONE RAM 48K in kit 
L. 80.000 

Espandi il tuo computer finalmente a 48K, potrai così sfruttare a pieno la 
nostra rivista. Approfitta di quest’offerta riservata ai le.ttori di RUN. Invia 
subito un Vaglia Postale da 80.000 lire intestato ad Aquarius Edizioni sne, 
Via Leopardi 9, MILANO, 20123. Riceverai la tua espansione a 48K a 
stretto giro posta. 


SOFT SALES BY AQUARIUS EDIZIONI 

□ DUPLICALL 

Programma per il Backup dei nastri protetti e non, anche Headerless e 
fino a 47.5 Kbytes. L. 12.000 

□ CASSETTA FEDELTÀ’ 

Dieci programmi indispensabili, 5 games e 5 utility. L. 12.000 

□ SPECTRUM & MUSIC VOL. 1 

Una raccolta di programmi classici che non possono mancare nella na¬ 
stroteca del sinclairomane. L. 10.000 

□ SPECTRUM & MUSIC VOL. 2 

Formula 1, Superscacchi, Superpacman 3D, Toto 13 e altri due giochi, in 
piu Domus, Conto Corrente, Assembler (16-48) e Disassembler (16-48) con 
manuale completo. L. 15.000 

□ ARRETRATI RUN N. 1-4 

Completa la tua collezione richiedendo i numeri che ti mancano L. 15.000 

SCONTO ABBONATI: Duplicali L. 10.000; Cassetta Fedeltà L. 6.000; Spec- 
trum & Music Voi. 1 L. 8.000; Spectrum & Music Voi. 2 L. 12.000; Arretrati 
L. 10.000. 

Invia Vaglia Postale ad Aquarius Edizioni, Via Leopardi 9, 20123 Milano, 
specificando nome, indirizzo e cassette richieste. 
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Personal Multi-Printer Silver-Reed 


Small but Powerful ^ 

«u A 

Th© EXD 10 Personal Multi-Printer is thè ^ M 

product of SILVER-REED's state-of-the-art elec-^^fc^y >*> <k A 

tronic technoiogy and a revolutionary new print 

System. This incredible little machine is light and com-^^^^^xA “ g** 
pact enough to carry anywhere and runs on battery V 

power for true portabilfty, making it thè perfect companion É^ìjgjf 

for business trìps. With Its fine quality dot matrix printing head, it 
wfll produce clear, clean text as you fly or ride to your destination. 

Will print on either norma! or thermal paper, and produces an amazing^^^^ 
range of characters and symbois with none of thè bother ofchanging printing elementi 
And, Jhanks to its whisper-silent electronic action, you con type anywhere, anytime, 0 
wtfhout disturbi ng those around you. 
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COSA NE DIRESTI DI UNA MACCHINA PER SCRIVERE PORTATILE 
IN GRADO DI DIVENTARE UNA STAMPANTE CON INTERFACCIA 
PARALLELA CENTRONICS A SOLE L. 544.500 IVA INCLUSA? 

ATTENZIONE! QUESTO PREZZO È RISERVATO Al LETTORI DI RUN, 
POICHÉ IL PREZZO DI LISTINO È DI L. 635.000 


Ciao? sono la nuova Personal Multi-Printer SILUER-REED. 

Mi chiamo EXD 10 e funziono con 4 pile torcia od a 
corrente; posso stampare sia su carta comune che su cai— 
ta termica; sono anche una calcolatrice < + - x e 

Peso solo due chili e mi puoi portare con te in tut¬ 
te le occasioni! sono silenziosa e affidabile; prima di 
stampare ti faccio vedere sul mio display a cristalli li¬ 
quidi sueIlo che stai scrivendo. 

Con 1'interfaccia Centronics puoi col legarmi al tuo 
computer utilizzando una delle tante interfacce Centronics 
disponibili per il tuo ZX Spectrum ed ottenere il massimo 
da programmi come il Tasuord Tuo od altri Uord Processors. 

Puoi anche usarmi per la stampa di testi e dati su 
fogli comuni fino a 75 caratteri (ASCII + caratteri spe¬ 
ciali)- Beneficio di una garanzia di sei mesi oltre a suel- 
la del nome SEIKO. 

Se mi vuoi» completa del 1'interfaccia Centronics > 

EXD 10» pronta per essere connessa tramite Printer Intel— 
face (Sandy» Kempston o B&U) al tuo Spectrum» ritaglia e 
spedisci il taglando allegando assegno di lire 272.250.- 
orrispondente al 50% dell'importo totale. 


TAGLIANDO SILVER REED EXD 10 

Nome_Cognome_ 

Via_ CAP_ 

Città_Prov._ 

□ inviatemi 1 EDX10 + Interfaccia Centronics - accludo L. 272.250 come 
acconto, salderò alla consegna per un totale di L. 544.500. 

Ritaglia e spedisci a: 

AQUARIUS EDIZIONI, VIA LEOPARDI 9, 20123 MILANO. 

L’offerta è valida solo per i lettori di RUN. Gli abbonati riceveranno in 
omaggio una copia del DUPLICALL. 
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VENDO - SCAMBIO 


NOME.COGNOME. 

IND.CITTA.CAP 


ss 










CERCO - ACQUISTO 


NOME.COGNOME. 

IND.CITTA.cap 















































LA PAGELLA DI RUN 5 


STILATA DA 

NOME .COGNOME. 

VIA. CITTA’. 

PROVINCIA.CAP. ETÀ’ 

QUANTI COMPUTER HAI POSSEDUTO . 


ARTICOLO 


insuff. suff. buono 10 + 


Start RUN N. 5. 

TAMBURINO. 

SOMMARIO. 

EDITORIALE . 

RUNNER. 

NEWS. 

EXPRESSO LO AD. 

TEST GP-50 . 

TUTTO LO AD. 

OCTOPUSS . 

CORSO DI BASIC 5 a parte. 

Z-80 SUPERGAME . 

TRUCCHI DEL MESTIERE. 

COMPUTER PSYCHOLIGHTS. 

CORSO L/M5 a parte . 

RUNGAME . 

TEST JOYSTICK PROGRAMMABILE 

MSX HARDWARE .. 

POSTA . 

MERCATO . 

NEXT . 

TUONO BLU . 

RACCOLTA SCREEN LETTORI 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


GIUDIZIO COMPLESSIVO 0 0 0 0 

□ABBONATO 

Suggerimenti: . 


CONTRIBUISCI A MIGLIORARE LA TUA RIVISTA 
MANDACI I TUOI GIUDIZI COMPILANDO QUESTA PAGINA. 
GLI ANNUNCI NON VERRANNO ACCETTATI SE PRIVI DELLA 
PAGELLA COMPILATA. 


Stacca e spedisci la pagina: AQUARIUS Edizioni - Via Leopardi, 9 - 20123 Milano. 
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PJU' BELLA DELL’ INTERFACCIA JOYSTICK / ’ 

fROGRAMMABILE "VICTORIA” DEL TUO AMICO... 

. 


o 

z 

< 

h 

l/l 

o 

a. 

6 

i 

a. 


\ 

» 





20133 MILANO 

VIA MONTE SUELLO, 3 

TEL. (02) 747048 


DISTRIBUTORE 
PER / COMPUTERSHOP: 

M CROSTAR 

VIA CAGLIERÒ, 17 - 20125 MILANO 
TEL. (02) 6887604 


